perm filename FREAD.LSP[TIM,LSP] blob sn#677324 filedate 1982-09-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Benchmark to read from a file.
C00004 ENDMK
CāŠ—;
;;; Benchmark to read from a file.

(declare (fixsw t))

(defun fread ()
       (let ((f (open "fprint.tst" '(in ascii))))
	    (read f)
	    (close f)))
	    

(cond ((probef "fprint.tst"))
      (t 
       (terpri)
       (princ "Define FPRINT.TST using the FPRINT benchmark!")
       (let ((f (open "fprint.tst" '(out ascii))))
	    (print test-pattern f)
	    (close f))))

(include "timer.lsp")

(timer timit (fread))